home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / prolog / ai.prl / mike1.exe / STRATEGY.KB < prev    next >
Encoding:
Text File  |  1990-09-17  |  2.6 KB  |  75 lines
  1. /* STRATEGY.KB
  2.  
  3.    Corporate marketing strategy (simple case) from the BYTE article
  4.    "A knowledge engineering toolkit" by Eisenstadt & Brayshaw (Oct '90)
  5.  
  6. */
  7.  
  8. high_tech_consumer_market subclass_of consumer_market with
  9.                                         /* class definition */
  10.  technology: mature,          /* default slot fillers... */
  11.  r_and_d_budgets: increasing,
  12.  proportion_new_customers: high.
  13.  
  14. home_computer_market instance_of high_tech_consumer_market with
  15.                                        /* instance definition */
  16.  proportion_new_customers: low,       /* this overrides default */
  17.  r_and_d_budgets: decreasing,
  18.  number_of_competitors: decreasing.
  19.  
  20. my_company instance_of key_player with
  21.  overall_strength: strong,
  22.  market_share: strong,
  23.  organizational_flexibility: high.
  24.  
  25. competition instance_of key_player with
  26.  organizational_flexibility: low,
  27.  financial_stength: high.
  28.  
  29. key_player subclass_of player with
  30.  overall_strength: average,
  31.  market_share: average,
  32.  financial_strength: average,
  33.  organizational_flexibility: average.
  34.  
  35. rule init forward
  36.   if
  37.        start  /* special symbol 'start' always in wm to begin */
  38.   then
  39.        remove start & /* take special symbol away... */
  40.        add [current_market, home_computer_market].
  41.                  /* put arbitrary list into wm to provide context */
  42.  
  43. rule industry_assessment_1 forward
  44.   if
  45.       [current_market, M] & /* will work with any market M */
  46.       the technology of M is mature & /* use frame access here... */
  47.       the proportion_new_customers of M is low & /* and here... etc. */
  48.       the r_and_d_budgets of M is decreasing &
  49.       the number_of_competitors of M is decreasing
  50.   then
  51.       note the industry_type of M is declining.
  52.              /* update frame representation for M */
  53.  
  54. rule strategy_recommendation_1 forward
  55.   if
  56.       [current_market, M] &
  57.       the industry_type of M is declining &
  58.                     /* given this market/competitor appraisal... */
  59.       the overall_strength of my_company is strong &
  60.       the overall_strength of competition is average &
  61.       the market_share of my_company is strong &
  62.       the financial_strength of my_company is average &
  63.       the organizational_flexibility of my_company is high
  64.   then
  65.       add recommended_strategy(M, selective_investment).
  66.                     /* suggest this strategy */
  67.  
  68. rule conclude forward
  69.    if
  70.        recommended_strategy(Market, Strategy)
  71.                    /* got a winner residing in wm? ... */
  72.    then
  73.        announce ['I propose the following strategy for ',
  74.                   Market, ': ', Strategy] &        /* then tell user */
  75.    halt.